(DEFUN c:roundtxt ()
  (SETQ count 0)
  (PRINC "\nSelect an Arc or a Circle. ")
  (SETQ arcorcircle (SSGET '((0 . "ARC,CIRCLE"))))
  (SETQ ac-ent (ENTGET (SSNAME arcorcircle 0)))
  (SETQ acradpnt (CDR (ASSOC 10 ac-ent)))
  (PRINC (STRCAT "\nSelect TEXT objects to align with the " (CDR (ASSOC 0 ac-ent)) ". "))
  (SETQ text-ss (SSGET '((0 . "TEXT"))))
  (IF ukword NIL (LOAD "ukword" "\nFile UKWORD.LSP not loaded! "))
  (SETQ text-dir (ukword 1 "Away Toward" (STRCAT "Align TEXT [Away/Toward] " (CDR (ASSOC 0 ac-ent)) "? ") (IF text-dir text-dir "Away")))
  (IF upoint NIL (LOAD "upoint" "\nFile Upoint.LSP not loaded! "))
  (SETQ text-distpnt (upoint 1 "" (STRCAT "Distance from center of " "?") NIL acradpnt))
  (SETQ text-dist (DISTANCE acradpnt text-distpnt))
  (COMMAND ".undo" "begin")
  (WHILE (< count (SSLENGTH text-ss))
    (SETQ this-text (ENTGET (SSNAME text-ss count)))
    (SETQ cur-textpoint (CDR (ASSOC 10 this-text))
          cur-textjust (CDR (ASSOC 11 this-text))
          cur-textangle (CDR (ASSOC 50 this-text))
          angletotext (ANGLE acradpnt cur-textpoint)
          new-textangle (IF (EQ text-dir "Away")
                          (+ (ANGLE cur-textpoint acradpnt) (* PI 0.5))
                          (- (ANGLE cur-textpoint acradpnt) (* PI 0.5))
                        )
          new-textangle (IF (< new-textangle (* 2.0 PI))
                          new-textangle
                          (- new-textangle (* 2.0 PI))
                        )
          text-just-ang (ANGLE (CDR (ASSOC 10 this-text))(CDR (ASSOC 11 this-text)))
          text-just-dist (DISTANCE (CDR (ASSOC 10 this-text))(CDR (ASSOC 11 this-text)))
          this-text (SUBST (CONS 11 (POLAR acradpnt angletotext text-dist))(ASSOC 11 this-text) this-text)
          this-text (SUBST (CONS 10 (POLAR (POLAR acradpnt angletotext text-dist) text-just-ang text-just-dist))(ASSOC 10 this-text) this-text)
          this-text (SUBST (CONS 50 new-textangle)(ASSOC 50 this-text) this-text)
    )
    (ENTMOD this-text)
    (ENTUPD (CDR (ASSOC -1 this-text)))
    (SETQ count (1+ count))
  )
  (COMMAND ".undo" "end")
  (PRINC)
)